home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / os2 / af0_23b.zip / afdeinst.cmd < prev    next >
OS/2 REXX Batch file  |  1996-08-09  |  1KB  |  53 lines
  1. /**/
  2. call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  3. call SysLoadFuncs
  4.  
  5. Call SysCls
  6.  
  7. Say
  8. Say "         AF - The Archive Folder - Deinstallation program"
  9. Say "         ================================================"
  10. Say
  11. Say "  This script will destroy the Archive Folder program object and all"
  12. Say "  the associations and templates Archive Folder uses."
  13. Say
  14. Call charout, "  Do you want to continue? (y/N): "
  15.  
  16. answer = SysGetKey(echo)
  17.  
  18.  
  19. if answer <> "Y" then return
  20.  
  21. id.0 = 6
  22. id.1 = "<AF_ARJ_TEMPLATE>"
  23. id.2 = "<AF_ZIP_TEMPLATE>"
  24. id.3 = "<AF_ARC_TEMPLATE>"
  25. id.4 = "<AF_RAR_TEMPLATE>"
  26. id.5 = "<AF_LZH_TEMPLATE>"
  27. id.6 = "<AF_TEMPS>"
  28.  
  29. Do i = 1 To 6
  30.   if SysDestroyObject( id.i ) then
  31.     Say "    "id.i "successfully destroyed"
  32.   else
  33.     Say "     Error destroying" id.i
  34. End
  35.  
  36. if SysIni( 'USER', "PMWP_ASSOC_TYPE", "Archive", 'DELETE:' ) = '' Then
  37.   Say "    Removed Archive file type"
  38. else
  39.   Say "    Error removing Archive file type"
  40.  
  41. if SysIni( 'USER', "AF", 'DELETE:' ) = '' Then
  42.   Say "    Removed AF entry in OS2.INI"
  43. else
  44.   Say "    Error removing AF entry in OS2.INI"
  45.  
  46. Say
  47. Say "  Now you can delete the installation directory to remove"
  48. Say "  The Archive Folder entirely."
  49. Say
  50. '@pause'
  51.  
  52.  
  53.